home *** CD-ROM | disk | FTP | other *** search
/ Practical Internet 2002 November / Practical Internet November 2002.iso / pc / Software / Workshops / gg_setup.exe / #setuppath# / ggcss.exe / home.asp < prev    next >
Encoding:
Text File  |  2002-04-03  |  407 b   |  15 lines
  1. <%@LANGUAGE="VBSCRIPT"%>
  2. <!-- #include file="connex.asp" -->
  3. <%
  4. set rsConfig = Server.CreateObject("ADODB.Recordset")
  5. rsConfig.ActiveConnection = connex
  6. rsConfig.Source = "SELECT * FROM CONFIG"
  7. rsConfig.CursorType = 0
  8. rsConfig.CursorLocation = 2
  9. rsConfig.LockType = 3
  10. rsConfig.Open()
  11. rsConfig_numRows = 0
  12. HOME=rsConfig.Fields.Item("HOME_PAGE").Value
  13. Response.Redirect(HOME)
  14. rsConfig.Close()
  15. %>